home *** CD-ROM | disk | FTP | other *** search
/ PCMania 73 / PCMania CD73_1.iso / pcmania / render73 / Taller / castli17 / TOWN.INC < prev   
Text File  |  1998-09-14  |  38KB  |  1,162 lines
  1. /* Este fichero es la versión 1.7 de Castlib: una libreria de formas para la
  2.    creación  de  castillos  con  POV  3.0.   La  presente  versión  de  este
  3.    "producto" puede ser utilizada libremente por cualquiera, pero dicho  uso
  4.    implica la aceptación de las siguientes condiciones:
  5.    1) Si alguien emplea alguna de las  estructuras  de  Castlib  1.7  debera
  6.    indicarlo  asi  al  principio  de  su fichero escenico citando tambien el
  7.    nombre de su autor.
  8.    2) Si alguien realiza alguna modificación sobre los ficheros que componen
  9.    Castlib 1.7, debera citar el producto original y su procedencia e indicar
  10.    que lo utilizado es una mutación de Castlib.
  11.    3) Este producto no es shareware sino de PAGO.  Si lo  utilizas  y  algun
  12.    dia, casualmente o no, topas con el autor de Castlib, quedaras obligado a
  13.    invitar a dicho autor a  una caña mientras le explicas como has utilizado
  14.    su producto.
  15.    4)  El  autor  rechaza  cualquier  responsabilidad por cualquier desastre
  16.    informatico, neurologico, o de  cualquier  otro  tipo  que el uso de este
  17.    producto pudiera ocasionar a cualquier ser  pensante  con  una  capacidad
  18.    mental  superior a la de una piedra.  Se entiende asimismo que el usuario
  19.    renuncia a cualquier pretensión de  reclamación, ahora y siempre, en este
  20.    o en cualquier otro universo (paralelo o no), sin excepción  espacial  ni
  21.    temporal, y liberando al autor en parte y en todo de cualquier obligación
  22.    futura.
  23.    5)  La  clausula  4  tambien  se  aplica  a  las entidades integrantes de
  24.    cualquier universo o entorno  virtual  simulado  en cualquier sistema con
  25.    capacidad de procesamiento superior al de un abaco.
  26.    6)  El  uso  de este producto y el incumplimiento de estas clausulas sera
  27.    castigado con medidas judiciales y ostracismo en PCmania. */
  28.  
  29. #include "colors.inc"
  30. #include "woods.inc"
  31. #include "metals.inc"
  32.  
  33. // ---------------------------------------------------
  34. // PANELES CUADRADOS PARA LAS CASAS            
  35. // esta viga basica esta en pos. vertical
  36. //#declare viga=box{<-1,-25,-2>,<1,25,0> texture{T_Wood14 scale<10,10,10>} }
  37. #declare viga=box{<-1,-25,-2>,<1,25,0> texture{T_Wood17 scale<5,5,5>} }
  38. //#declare tejas = texture { T_Wood12 scale<2,2,2>}
  39. #declare tejas = texture { T_Wood14 scale<.25,.25,.25>}
  40. #declare panelb=union{
  41.     box{<-25,0,0>,<25,50,2> 
  42.         texture{texcastle1}}
  43.     object{viga rotate z*90 translate <0,50,0>}
  44.     object{viga rotate z*90 translate <0,2,0>}
  45.     object{viga translate <-25,25,0>}
  46.     object{viga translate <25,25,0>}
  47. }
  48. // dos vigas cruzadas en diagonal
  49. #declare panel1=union{
  50.     object{panelb}
  51.     object{viga scale <1.5,1.33,1> rotate z*45 translate <0,25,-0.2>}
  52.     object{viga scale <1.5,1.33,1> rotate z*-45 translate <0,25,-0.3>}
  53.     }
  54. // una viga en diagonal
  55. #declare panel2=union{
  56.     object{panelb}
  57.     object{viga scale <1.5,1.33,1> rotate z*45 translate <0,25,-0.2>}
  58.     }
  59. // una viga en diagonal
  60. #declare panel3=union{
  61.     object{panelb}
  62.     object{viga scale <1.5,1.33,1> rotate z*-45 translate <0,25,-0.2>}
  63.     }
  64. // dos vigas verticales
  65. #declare panel4=union{
  66.     object{panelb}
  67.     object{viga translate <-10,25,0>}
  68.     object{viga translate <10,25,0>}
  69.     }
  70. //una viga horizontal baja y dos ventanas de tipo 1
  71. #declare panel5=union{
  72.     difference{
  73.         object{panelb}
  74.         object{recven1 translate <-12,25,-1>}
  75.         object{recven1 translate <12,25,-1>}
  76.     }
  77.     object{marcove1 translate <-12,25,3.75> }
  78.     object{marcove1 translate <12,25,3.75> }
  79.     object{viga rotate z*90 translate <0,15,0>}
  80. }
  81. //dos ventanitas cuadradas y una viga horizontal
  82. #declare panel6=union{
  83.     difference{
  84.         object{panelb}
  85.         box{<-5,15,-10>,<5,25,10> translate <-9,0,0>}
  86.         box{<-5,15,-10>,<5,25,10> translate <9,0,0>}
  87.     }
  88.     box{<-4,12,-3>,<4,15,0> translate <-9,0,0> texture{textmur1}}
  89.     box{<-4,12,-3>,<4,15,0> translate <9,0,0> texture{textmur1}}
  90.     object{viga rotate z*90 translate <0,37,0>}
  91.     }
  92. // con puerta
  93. #declare panel7=union{
  94.     difference{
  95.         object{panelb}
  96.         object{recpuer1}
  97.     }
  98.     object{puerta translate<0,0,3>}
  99. }
  100. // con puerta y dos vigas verticales
  101. #declare panel8=union{
  102.     object{panel7}
  103.     object{viga translate <-14,25,0>}
  104.     object{viga translate <14,25,0>}
  105. }
  106. // con puerta y ventanitas tipo 1
  107. #declare panel9=union{
  108.     difference{
  109.         object{panelb}
  110.         object{recpuer1}
  111.         object{recven1 translate <-12,25,-1>}
  112.         object{recven1 translate <12,25,-1>}
  113.     }
  114.     object{puerta translate<0,0,3>}
  115.     object{marcove1 translate <-12,25,3.75>}
  116.     object{marcove1 translate <12,25,3.75>}
  117. }
  118. // con puerta a la izq. y ventanita cuadrada a la der.
  119. #declare panel10=union{
  120.     difference{
  121.         object{panelb}
  122.         object{recpuer1 translate <-14,0,0>}
  123.         box{<-5,30,-10>,<5,40,10> translate <12,0,0>}
  124.     }
  125.     object{puerta translate<-14,0,3>}
  126.     box{<-4,27,-3>,<4,30,0> translate <12,0,0> texture{textmur1}}
  127. }
  128. // con puerta a la izq. y ventanita tipo 1 a la der.
  129. #declare panel11=union{
  130.     difference{
  131.         object{panelb}
  132.         object{recpuer1 translate <-14,0,0>}
  133.         object{recven1 translate <12,25,-1>}
  134.     }
  135.     object{puerta translate<-14,0,3>}
  136.     object{marcove1 translate <12,25,3.75> }
  137. }
  138. // con puerta a la izq., ventanita tipo 1 a la der. y viga diagonal
  139. #declare panel12=union{
  140.     object{panel11}
  141.     object{viga scale <1.5,1.33,1> rotate z*45 translate <0,25,-0.2>}
  142. }    
  143. //dos ventanitas tipo 1 a la altura del 1er piso
  144. #declare panel13=union{
  145.     difference{
  146.         object{panelb}
  147.         object{recven1 translate <-12,25,-1>}
  148.         object{recven1 translate <12,25,-1>}
  149.     }
  150.     object{marcove1 translate <-12,25,3.75> }
  151.     object{marcove1 translate <12,25,3.75> }
  152. }
  153. // dos vigas verticales
  154. #declare panel14=union{
  155.     difference{
  156.         object{panelb}
  157.         object{recven1 translate <0,25,-1>}
  158.     }
  159.     object{marcove1 translate <0,25,3.75> }
  160.     object{viga translate <-14,25,0>}
  161.     object{viga translate <14,25,0>}
  162. }
  163.  
  164.  
  165.  
  166. // ---------------------------------------------------
  167. // PANELES DIAGONALES PARA LOS TEJADOS DE LAS CASAS
  168. // con vigas diagonales
  169. #declare rectej45=union{
  170.     plane{y,0 inverse translate<25,0,0> rotate z*63 translate<-25,0,0> }
  171.     plane{y,0 inverse translate<25,0,0> rotate z*63 translate<-25,0,0> rotate y*180}
  172. }
  173. #declare paneld1=difference{
  174.     union{
  175.         box{<-25,0,0>,<25,50,2>}
  176.         object{viga translate<0,25,0>}
  177.         object{viga scale <1.5,1.33,1> rotate z*45 translate <-25,25,-0.2>}
  178.         object{viga scale <1.5,1.33,1> rotate z*-45 translate <25,25,-0.3>}
  179. //        pigment{ image_map{tga "piedra2.tga" }
  180. //                 translate <-.5,-.5,0> scale <14,14,1> }
  181.         texture{texcastle1}
  182.         }
  183.     object{rectej45}
  184. }
  185. // con ventana de tipo 1
  186. #declare paneld2=union{
  187.     difference{
  188.         box{<-25,0,0>,<25,50,2>}
  189.         object{rectej45}
  190.         object{recven1 translate <0,12,-1>}
  191. //        pigment{ image_map{tga "piedra2.tga" }
  192. //                 translate <-.5,-.5,0> scale <14,14,1> }
  193.         texture{texcastle1}
  194.         }    
  195.     object{marcove1 translate <0,12,3.75> }
  196. }
  197. // con puerta (habra escaleras)
  198. #declare paneld3=union{
  199.     difference{
  200.         box{<-25,0,0>,<25,50,2>}
  201.         object{rectej45}
  202.         object{recpuer1}
  203. //        pigment{ image_map{tga "piedra2.tga" }
  204. //                 translate <-.5,-.5,0> scale <14,14,1> }
  205.         texture{texcastle1}
  206.         }    
  207.     object{puerta translate<0,0,3>}
  208. }
  209. // panel diag. para lado izq.
  210. #declare paneld4=difference{
  211.     object{panel2}
  212.     plane{y,0 inverse rotate z*45 translate <-25,0,0>}
  213. }
  214. // panel diag. para lado der.
  215. #declare paneld5=difference{
  216.     object{panel3}
  217.     plane{y,0 inverse rotate z*45 translate <-25,0,0> rotate y*180}
  218. }
  219. // panel doble ( 4+5 ) con ventana central (desde -50X a +50X)
  220. #declare paneld6=union{
  221.     difference{
  222.         union{
  223.             object{paneld4 translate <-25,0,0>}
  224.             object{paneld5 translate <25,0,0>}
  225.             }
  226.         object{recven1 translate <0,15,-1>}
  227.         }
  228.     object{marcove1 translate <0,15,3.75> }
  229. }
  230.  
  231.  
  232.  
  233. // ---------------------------------------------------
  234. // MACROS DE BUHARDILLAS Y TEJADOS DE LAS CASAS
  235.  
  236. #declare irectej1=difference{box{<-32,0,-31>,<33,50,31>
  237.     translate<25,0,0> rotate z*63 translate<-25,0,0> }
  238.     plane{y,51 inverse}
  239.     texture{tejas}
  240. }
  241. #declare rectej1=union{
  242.     object{irectej1}
  243.     object{irectej1 rotate y*180}
  244. } 
  245. #declare mtej1=difference{
  246.     object{irectej1}
  247.     box{<-40,0,-40>,<40,60,40> translate<25,0,0> rotate z*63 translate<-28,0,0>}
  248. }
  249. // tejado para "casas" de 5 metros de ancho
  250. #declare tejado1=union{
  251.     object{mtej1}
  252.     object{mtej1 rotate y*180}
  253.     texture{tejas}
  254. }    
  255. // tejado de 45 grados
  256. #declare irectej2=difference{box{<-41,0,-31>,<50,50,31>
  257.     rotate z*45 translate<0,25,0>}
  258.     plane{y,51 inverse}
  259.     texture{tejas}
  260. }
  261. #declare rectej2=union{
  262.     object{irectej2}
  263.     object{irectej2 rotate y*180}
  264. }
  265. // tejado para partes adosadas
  266. #declare mtej2=difference{
  267.     object{irectej2}
  268.     box{<-50,0,-40>,<60,60,40> rotate z*45 translate<-3,25,0> }
  269.     texture{tejas}
  270. }
  271.  
  272.  
  273. // BUHARDILLAS
  274. // panel superior de buhardillas
  275. declare pansupbu=difference{
  276.     box{<-25,0,0>,<25,50,5>}
  277.     object{rectej45}
  278.     texture{textmur1}
  279.     }    
  280. #declare cachob1=union{
  281.     object{panelb translate<0,-50,-25>}
  282.     object{panelb translate<0,-50,-25> rotate y*90}
  283.     object{panelb translate<0,-50,-25> rotate y*180}
  284.     object{panelb translate<0,-50,-25> rotate y*270}
  285. // parte superior
  286.     object{pansupbu translate<0,0,-25>}
  287.     object{pansupbu translate<0,0,-25> rotate y*180}
  288.     object{tejado1 texture { T_Wood18 scale<.2,.2,.2>}}
  289. }
  290. #declare buhardilla1=union{
  291.     difference{    
  292.         object{cachob1 scale <.3,.3,.3> translate<0,15,0>}
  293.         object{recven1 translate <0,3,-4>}
  294.         }
  295.     object{cachob1 scale <.3,.3,.3> translate<0,15,15>}
  296.     object{marcove1 translate <0,3,-4> }
  297. }                                
  298.  
  299. #declare buhardilla2=union{
  300.     difference{    
  301.         object{cachob1 scale <.35,.3,.3> translate<0,15,0>}
  302.         object{recven1 translate <0,3,-8>}
  303.         }
  304.     object{cachob1 scale <.3,.3,.3> translate<0,15,15>}
  305.     object{marcove1 translate <0,3,-4> }
  306. }                                
  307.  
  308.  
  309. #declare buhar3_1=union{
  310.     object{buhardilla1 translate<-50,0,0>}
  311.     object{buhardilla1 }
  312.     object{buhardilla1 translate<50,0,0>}
  313. }
  314. #declare buhar3_2=union{
  315.     object{buhardilla1 translate<-50,0,0>}
  316.     object{buhardilla2 }
  317.     object{buhardilla1 translate<50,0,0>}
  318. }
  319. // TEJADOS de 15 metros de largo con y sin buhardillas
  320. #declare tejado31=union{   
  321.     object{tejado1 rotate y*90 translate<-50,0,0>}
  322.     object{tejado1 rotate y*90 translate<0,0,0>}
  323.     object{tejado1 rotate y*90 translate<50,0,0>}
  324. }
  325. #declare tejado32=union{
  326.     object{tejado31}
  327.     object{buhar3_1 translate<0,10,-16.5>}
  328.     object{buhar3_1 translate<0,10,-16.5> rotate y*180}
  329. }
  330. #declare tejado33=union{
  331.     object{tejado31}
  332.     object{buhar3_2 translate<0,10,-16.5>}
  333.     object{buhar3_2 translate<0,10,-16.5> rotate y*180}
  334. }
  335.  
  336.  
  337.  
  338. // ---------------------------------------------------
  339. //ESCALERAS
  340. /*  Este  tramo  de escaleras se usa para alcanzar las puertas colocadas a 5
  341.    metros de altura (de las casas).  Sube  de der.  a izq., Tiene 1.5 metros
  342.    de ancho y 5 metros de largo.  Consta de 25 peldaños */
  343. #declare escal5m= union{
  344.     #declare pel=0
  345.     #declare alt=50
  346.     #declare xpel=-5
  347.     #while (pel!=20)
  348. //        box{<-25,alt-2.5,-15>,<xpel,alt,0>}
  349.         box{<-25,alt-2.5,-7.5>,<xpel,alt,7.5>}
  350.         #declare alt=alt-2.5
  351.         #declare pel=pel+1
  352.         #declare xpel=xpel+2.5
  353.     #end    
  354. //    pigment{image_map{tga "piedra22.tga" map_type 0} scale <14,14,1>}
  355. }
  356.  
  357. #declare escal5=merge{
  358.     difference{
  359.         object{escal5m}
  360.         box{<-26,-1,-7.49>,<xpel,51,7.49>}
  361.         pigment{Orange}
  362. //        pigment{image_map{tga "piedra22.tga" map_type 0} scale <14,14,1>}
  363.         }
  364.     intersection{
  365.         object{escal5m}
  366.         box{<-26,-1,-7.49>,<xpel,51,7.49>}
  367.         pigment{Orange}
  368. //        pigment{image_map{tga "piedra22.tga" map_type 0} scale <14,14,1>
  369. //                rotate x*90}
  370.         }
  371.     translate<0,0,-7.5>
  372. }
  373.  
  374. //la misma escalera con puerta
  375. #declare escal51=union{
  376.     difference{
  377.         object{escal5}
  378.         object{recpuer1 translate<-12,0,-12>}
  379.         }        
  380.     object{puerta translate<-12,0,-12>}
  381. }
  382. //idem. con arco (en esquinas)
  383. #declare escal52=union{
  384.     difference{
  385.         object{escal5}
  386.         object{recpuer1 translate<0,-10,0> scale <1.3,2.5,5>
  387.                         translate<-14,10,-12>}
  388.         object{recpuer1 translate<0,-10,0> scale <1.3,2.5,1> rotate y*90
  389.                         translate<-22,10,-4>}
  390.         }        
  391.     object{marcopu translate<0,-10,0> scale <1.3,2.5,.5> translate<-14,10,-14>}
  392.     difference{
  393.         object{marcopu translate<0,-10,0> scale <1.3,2.5,.5> rotate y*90
  394.                        translate<-24,10,-4>}
  395.         plane{z,0 inverse texture{textmur1} }
  396.         }
  397. }
  398.  
  399.  
  400.  
  401. // ---------------------------------------------------
  402. /* CASAS 5*10*10 (5 de ancho, 10 largo, 10 alto), simples (sin buhardillas,
  403.    puentes ni escaleras). Las casas se colocaran siempre con las puertas
  404.    paralelas al eje X (la calle) */
  405. #declare macb1=union{
  406.     object{panel9 translate<-25,0,-25>}   
  407.     object{panel5 translate<25,0,-25>}   
  408.     object{panel4 rotate y*90 translate<-50,0,0>}
  409. }
  410. #declare planta1=union{
  411.     object{macb1}       
  412.     object{macb1 rotate y*180}
  413. }
  414. #declare casa1=union{
  415.     object{planta1}       
  416.     object{paneld1 rotate y*90 translate<-50,50,0>}
  417.     object{paneld1 rotate y*90 translate<-50,50,0> rotate y*180}
  418.     object{tejado1 rotate y*90 translate<-25,50,0>}
  419.     object{tejado1 rotate y*90 translate<25,50,0>}
  420. }
  421. #declare macb2=union{
  422.     object{panel8 translate<-25,0,-25>}   
  423.     object{panel13 translate<25,0,-25>}   
  424.     object{panel14 rotate y*90 translate<-50,0,0>}
  425. }
  426. #declare planta2=union{
  427.     object{macb2}       
  428.     object{macb2 rotate y*180}
  429. }
  430. #declare casa2=union{
  431.     object{planta2}       
  432.     object{paneld1 rotate y*90 translate<-50,50,0>}
  433.     object{paneld1 rotate y*90 translate<-50,50,0> rotate y*180}
  434.     object{tejado1 rotate y*90 translate<-25,50,0>}
  435.     object{tejado1 rotate y*90 translate<25,50,0>}
  436. }
  437.  
  438. #declare macb3=union{
  439.     object{panel6 translate<-25,0,-25>}   
  440.     object{panel10 translate<25,0,-25>}   
  441.     object{panel2 rotate y*90 translate<-50,0,0>}
  442.     object{paneld1 rotate y*90 translate<-50,50,0>}
  443. }
  444. // Esta casa se colocara siguiendo el eje X (la calle)
  445. #declare casa3=union{
  446.     object{macb3}       
  447.     object{macb3 rotate y*180}
  448.     object{tejado1 rotate y*90 translate<-25,50,0>}
  449.     object{tejado1 rotate y*90 translate<25,50,0>}
  450. }
  451. #declare macb4=union{
  452.     object{panel5 translate<-25,0,-25>}   
  453.     object{panel12 translate<25,0,-25>}   
  454.     object{panel3 rotate y*90 translate<-50,0,0>}
  455.     object{paneld2 rotate y*90 translate<-50,50,0>}
  456. }
  457. #declare casa4=union{
  458.     object{macb4}       
  459.     object{macb4 rotate y*180}
  460.     object{tejado1 rotate y*90 translate<-25,50,0>}
  461.     object{tejado1 rotate y*90 translate<25,50,0>}
  462. }
  463. #declare macb5=union{
  464.     object{panel3 translate<-25,0,-25>}   
  465.     object{panel8 translate<25,0,-25>}   
  466.     object{panel1 rotate y*90 translate<-50,0,0>}
  467.     object{paneld1 rotate y*90 translate<-50,50,0>}
  468. }
  469. #declare casa5=union{
  470.     object{macb5}       
  471.     object{macb5 rotate y*180}
  472.     object{tejado1 rotate y*90 translate<-25,50,0>}
  473.     object{tejado1 rotate y*90 translate<25,50,0>}
  474. }
  475. // siguen las mismas 5 casas precedentes, pero con buhardillas
  476. #declare buh4=union{    // macro para casas con buhardilla
  477.     object{buhardilla1 translate<-25,60,-18>}
  478.     object{buhardilla1 translate<25,60,-18>}
  479.     object{buhardilla1 translate<-25,60,-18> rotate y*180}
  480.     object{buhardilla1 translate<25,60,-18> rotate y*180}
  481. }
  482. #declare casa1b=union{
  483.     object{casa1}
  484.     object{buh4}
  485. }
  486. #declare casa2b=union{
  487.     object{casa2}
  488.     object{buh4}
  489. }
  490. #declare casa3b=union{
  491.     object{casa3}
  492.     object{buh4}
  493. }
  494. #declare casa4b=union{
  495.     object{casa4}
  496.     object{buh4}
  497. }
  498. #declare casa5b=union{
  499.     object{casa5}
  500.     object{buh4}
  501. }
  502.  
  503. #declare macb6=union{
  504.     object{panel5 translate<-25,0,-25>}   
  505.     object{panel5 translate<25,0,-25>}   
  506.     object{panel9 rotate y*90 translate<-50,0,0>}
  507. }
  508. #declare planta3=union{
  509.     object{macb6}       
  510.     object{macb6 rotate y*180}
  511. }
  512. #declare casa6=union{
  513.     object{planta3}       
  514.     object{paneld1 rotate y*90 translate<-50,50,0>}
  515.     object{paneld1 rotate y*90 translate<-50,50,0> rotate y*180}
  516.     object{tejado1 rotate y*90 translate<-25,50,0>}
  517.     object{tejado1 rotate y*90 translate<25,50,0>}
  518.     rotate y*90
  519. }
  520. #declare macb7=union{
  521.     object{panel13 translate<-25,0,-25>}   
  522.     object{panel14 translate<25,0,-25>}   
  523.     object{panel8 rotate y*90 translate<-50,0,0>}
  524.     object{paneld2 rotate y*90 translate<-50,50,0>}
  525. }
  526. #declare casa7=union{
  527.     object{macb7}       
  528.     object{macb7 rotate y*180}
  529.     object{tejado1 rotate y*90 translate<-25,50,0>}
  530.     object{tejado1 rotate y*90 translate<25,50,0>}
  531.     rotate y*90
  532. }
  533. #declare macb8=union{
  534.     object{panel3 translate<-25,0,-25>}   
  535.     object{panel4 translate<25,0,-25>}   
  536.     object{panel12 rotate y*90 translate<-50,0,0>}
  537.     object{paneld2 rotate y*90 translate<-50,50,0>}
  538. }
  539. #declare casa8=union{
  540.     object{macb8}       
  541.     object{macb8 rotate y*180}
  542.     object{tejado1 rotate y*90 translate<-25,50,0>}
  543.     object{tejado1 rotate y*90 translate<25,50,0>}
  544.     rotate y*90
  545. }
  546. #declare macb9=union{
  547.     object{panel14 translate<-25,0,-25>}   
  548.     object{panel14 translate<25,0,-25>}   
  549.     object{panel11 rotate y*90 translate<-50,0,0>}
  550.     object{paneld1 rotate y*90 translate<-50,50,0>}
  551. }
  552. #declare casa9=union{
  553.     object{macb9}       
  554.     object{macb9 rotate y*180}
  555.     object{tejado1 rotate y*90 translate<-25,50,0>}
  556.     object{tejado1 rotate y*90 translate<25,50,0>}
  557.     rotate y*90
  558. }
  559. #declare macb10=union{
  560.     object{panel5 translate<-25,0,-25>}   
  561.     object{panel2 translate<25,0,-25>}   
  562.     object{panel7 rotate y*90 translate<-50,0,0>}
  563.     object{paneld2 rotate y*90 translate<-50,50,0>}
  564. }
  565. #declare casa10=union{
  566.     object{macb10}       
  567.     object{macb10 rotate y*180}
  568.     object{tejado1 rotate y*90 translate<-25,50,0>}
  569.     object{tejado1 rotate y*90 translate<25,50,0>}
  570.     rotate y*90
  571. }
  572.  
  573. #declare casa6b=union{
  574.     object{casa6}
  575.     object{buh4 rotate y*90}
  576. }
  577. #declare casa7b=union{
  578.     object{casa7}
  579.     object{buh4 rotate y*90}
  580. }
  581. #declare casa8b=union{
  582.     object{casa8}
  583.     object{buh4 rotate y*90}
  584. }
  585. #declare casa9b=union{
  586.     object{casa9}
  587.     object{buh4 rotate y*90}
  588. }
  589. #declare casa10b=union{
  590.     object{casa10}
  591.     object{buh4 rotate y*90}
  592. }
  593.  
  594.  
  595.  
  596. // ---------------------------------------------------
  597. // ahora, usando las "plantas", crear ESTRUCTURAS LATERALES y COLGANTES
  598. #declare macb11=union{
  599.     object{panel14 translate<-25,0,-25>}   
  600.     object{panel14 translate<25,0,-25>}   
  601.     object{panel14 rotate y*90 translate<-50,0,0>}
  602. }
  603. #declare planta4=union{
  604.     object{macb11}
  605.     object{macb11 rotate y*180}
  606. }
  607. #declare macb12=union{
  608.     object{panel5 translate<-25,0,-25>}   
  609.     object{panel5 translate<25,0,-25>}   
  610.     object{panel5 rotate y*90 translate<-50,0,0>}
  611. }
  612. #declare planta5=union{
  613.     object{macb12}
  614.     object{macb12 rotate y*180}
  615. }
  616. #declare macb13=union{
  617.     object{panel1 translate<-25,0,-25>}   
  618.     object{panel1 translate<25,0,-25>}   
  619.     object{panel1 rotate y*90 translate<-50,0,0>}
  620. }
  621. #declare planta6=union{
  622.     object{macb13}
  623.     object{macb13 rotate y*180}
  624. }
  625. #declare tejlat0=union{
  626.     object{mtej2 rotate y*90 translate <0,0,0>}
  627.     object{paneld4 rotate y*90 translate<-25,0,0>}   
  628.     object{paneld5 rotate y*-90 translate<25,0,0>}
  629. }
  630. #declare tejlat1=union{
  631.     object{mtej2 rotate y*90 translate <-25,0,0>}
  632.     object{mtej2 rotate y*90 translate <25,0,0>}
  633.     object{paneld4 rotate y*90 translate<-50,0,0>}   
  634.     object{paneld5 rotate y*-90 translate<50,0,0>}
  635. }
  636. // laterales de 2 pisos con escalera
  637. #declare lateral1_2=union{
  638.     object{escal5 translate<70,0,7.5> rotate y*180}
  639.     object{planta1 rotate y*180}
  640.     object{planta3 translate <0,50,0>}
  641.     object{tejlat1 translate<0,100,0>}
  642.     rotate y*180
  643. }    
  644. #declare lateral2_2=union{
  645.     object{escal52 translate<70,0,7.5> rotate y*180}
  646.     object{planta6 rotate y*180}
  647.     object{planta3 translate <0,50,0>}
  648.     object{tejlat1 translate<0,100,0>}
  649.     rotate y*180
  650. }    
  651. //laterales de 2 pisos sin escalera
  652. #declare lateral3_2=union{
  653.     object{planta2}
  654.     object{planta4 translate <0,50,0>}
  655.     object{tejlat1 translate<0,100,0>}    
  656. }    
  657. #declare lateral4_2=union{
  658.     object{planta3}
  659.     object{planta5 translate <0,50,0>}
  660.     object{tejlat1 translate<0,100,0>}    
  661. }    
  662. //laterales de un piso, sin puerta y 10 metros de largo
  663. #declare lateral1_1=union{
  664.     object{planta4}
  665.     object{tejlat1 translate<0,50,0> }
  666.     rotate y*180
  667. }
  668. #declare lateral2_1=union{
  669.     object{planta5}
  670.     object{tejlat1 translate<0,50,0>}
  671.     rotate y*180
  672. }
  673. // laterales de un piso y 5 metros de largo
  674. #declare lateral3_1=union{
  675.     object{panel14 translate<0,0,-25>}   
  676.     object{panel1 rotate y*90 translate<-25,0,0>}
  677.     object{panel1 rotate y*-90 translate<25,0,0>}
  678.     object{tejlat0 scale <0,.50,0> translate<0,51,0> rotate y*180}
  679. }    
  680. #declare lateral4_1=union{
  681.     object{panel5 translate<0,0,-25>}   
  682.     object{panel1 rotate y*90 translate<-25,0,0>}
  683.     object{panel1 rotate y*-90 translate<25,0,0>}
  684.     object{tejlat0 scale <0,.50,0> translate<0,51,0> rotate y*180}
  685. }    
  686. /*estructuras colgantes para casa grandes y torres. Son, ejem, las dos de
  687.   arriba mas el soporte */
  688. #declare colgante1=union{
  689.     object{lateral3_1 translate<0,60,0>}
  690.     object{soporte1 translate <0,0,-6.5> scale <1,1,1.7> translate <0,0,29>}
  691. }    
  692. #declare colgante2=union{
  693.     object{lateral4_1 translate<0,60,0>}
  694.     object{soporte1 translate <0,0,-6.5> scale <1,1,1.7> translate <0,0,29>}
  695. }    
  696. #declare colgante3=union{
  697.     object{colgante1 translate<-25,0,0>}
  698.     object{colgante1 translate<25,0,0>}
  699.     object{soporte1 translate <0,0,-6.5> scale <1,1,1.7> translate <-25,0,29>}
  700.     object{soporte1 translate <0,0,-6.5> scale <1,1,1.7> translate <25,0,29>}
  701. }    
  702. #declare colgante4=union{
  703.     object{colgante2 translate<-25,0,0>}
  704.     object{colgante2 translate<25,0,0>}
  705.     object{soporte1 translate <0,0,-6.5> scale <1,1,1.7> translate <-25,0,29>}
  706.     object{soporte1 translate <0,0,-6.5> scale <1,1,1.7> translate <25,0,29>}
  707. }    
  708.  
  709. // ---------------------------------------------------
  710. /* CASAS 5*15*15 (5 de ancho, 15 largo, 15 alto), con buhardillas y posibles
  711.    puentes y escaleras. Primero definimos los "pisos" y luego las casas */
  712. #declare mpiso1b=union{
  713.     object{panel9 rotate y*90 translate<-75,0,0>}
  714.     object{panel5 translate<-50,0,-25>}   
  715.     object{panel1 translate<0,0,-25>}   
  716.     object{panel5 translate<50,0,-25>}
  717. }
  718. #declare piso1b=union{
  719.     object{mpiso1b}       
  720.     object{mpiso1b rotate y*180}
  721. }
  722. #declare mpiso1m=union{
  723.     object{panel5 rotate y*90 translate<-75,0,0>}
  724.     object{panel4 translate<-50,0,-25>}   
  725.     object{panel1 translate<0,0,-25>}   
  726.     object{panel4 translate<50,0,-25>}
  727. }
  728. #declare piso1m=union{
  729.     object{mpiso1m}       
  730.     object{mpiso1m rotate y*180}
  731. }
  732. #declare casa21=union{
  733.     object{piso1b}
  734.     object{piso1m translate <0,50,0>}
  735.     object{tejado32 translate<0,100,0>}
  736.     object{paneld1 rotate y*90 translate<-75,100,0>}
  737.     object{paneld1 rotate y*-90 translate<75,100,0>}
  738. }
  739. #declare casa21a=union{
  740.     object{casa21}
  741.     object {lateral1_1 translate <-25,0,-50>}
  742. }
  743.  
  744. #declare mpiso2b=union{
  745.     object{panel8 rotate y*90 translate<-75,0,0>}
  746.     object{panel13 translate<-50,0,-25>}   
  747.     object{panel7 translate<0,0,-25>}   
  748.     object{panel13 translate<50,0,-25>}
  749. }
  750. #declare piso2b=union{
  751.     object{mpiso2b}       
  752.     object{mpiso2b rotate y*180}
  753. }
  754. #declare mpiso2m=union{
  755.     object{panel14 rotate y*90 translate<-75,0,0>}
  756.     object{panel3 translate<-50,0,-25>}   
  757.     object{panel1 translate<0,0,-25>}   
  758.     object{panel3 translate<50,0,-25>}
  759. }
  760. #declare piso2m=union{
  761.     object{mpiso2m}       
  762.     object{mpiso2m rotate y*180}
  763. }
  764. #declare casa22=union{
  765.     object{piso2b}
  766.     object{piso2m translate <0,50,0>}
  767.     object{tejado33 translate<0,100,0>}
  768.     object{paneld1 rotate y*90 translate<-75,100,0>}
  769.     object{paneld1 rotate y*-90 translate<75,100,0>}
  770. }
  771.  
  772. #declare mpiso3b=union{
  773.     object{panel12 rotate y*90 translate<-75,0,0>}
  774.     object{panel5 translate<-50,0,-25>}   
  775.     object{panel2 translate<0,0,-25>}   
  776.     object{panel5 translate<50,0,-25>}
  777. }
  778. #declare piso3b=union{
  779.     object{mpiso3b}       
  780.     object{mpiso3b rotate y*180}
  781. }
  782. #declare mpiso3m=union{
  783.     object{panel1 rotate y*90 translate<-75,0,0>}
  784.     object{panel2 translate<-50,0,-25>}   
  785.     object{panel11 translate<0,0,-25>}   
  786.     object{panel2 translate<50,0,-25>}
  787. }
  788. #declare piso3m=union{
  789.     object{mpiso3m}       
  790.     object{mpiso3m rotate y*180}
  791. }
  792. #declare casa23=union{
  793.     object{piso3b}
  794.     object{piso3m translate <0,50,0>}
  795.     object{escal51 translate<0,0,-25>}
  796.     object{escal51 translate<0,0,-25> rotate y*180}
  797.     object{tejado32 translate<0,100,0>}
  798.     object{paneld2 rotate y*90 translate<-75,100,0>}
  799.     object{paneld2 rotate y*-90 translate<75,100,0>}
  800. }
  801.  
  802. #declare mpiso4b=union{
  803.     object{panel12 rotate y*90 translate<-75,0,0>}
  804.     object{panel1 translate<-50,0,-25>}   
  805.     object{panel1 translate<0,0,-25>}   
  806.     object{panel9 translate<50,0,-25>}
  807. }
  808. #declare piso4b=union{
  809.     object{mpiso4b}       
  810.     object{mpiso4b rotate y*180}
  811. }
  812. #declare mpiso4m=union{
  813.     object{panel1 rotate y*90 translate<-75,0,0>}
  814.     object{panel5 translate<-50,0,-25>}   
  815.     object{panelb translate<0,0,-25>}   
  816.     object{panel5 translate<50,0,-25>}
  817. }
  818. #declare piso4m=union{
  819.     object{mpiso4m}       
  820.     object{mpiso4m rotate y*180}
  821. }
  822. #declare casa24=union{
  823.     object{piso4b}
  824.     object{piso4m translate <0,50,0>}
  825.     object{tejado31 translate <0,100,0>}
  826.     object{paneld1 rotate y*90 translate<-75,100,0>}
  827.     object{paneld1 rotate y*-90 translate<75,100,0>}
  828. }
  829. #declare casa24a=union{
  830.     object{casa24}
  831.     object {lateral2_1 translate <25,0,-50>}
  832. }
  833.  
  834. #declare mpiso5b=union{
  835.     object{panel8 rotate y*90 translate<-75,0,0>}
  836.     object{panelb translate<-50,0,-25>}   
  837.     object{panel3 translate<0,0,-25>}   
  838.     object{panel5 translate<50,0,-25>}
  839. }
  840. #declare piso5b=union{
  841.     object{mpiso5b}       
  842.     object{mpiso5b rotate y*180}
  843. }
  844. #declare mpiso5m=union{
  845.     object{panel5 rotate y*90 translate<-75,0,0>}
  846.     object{panel12 translate<-50,0,-25>}   
  847.     object{panel1 translate<0,0,-25>}   
  848.     object{panel4 translate<50,0,-25>}
  849. }
  850. #declare piso5m=union{
  851.     object{mpiso5m}       
  852.     object{mpiso5m rotate y*180}
  853. }
  854. #declare casa25=union{
  855.     object{piso5b}
  856.     object{piso5m translate <0,50,0>}
  857.     object{escal52 translate<-50,0,-25>}
  858.     object{escal52 translate<-50,0,-25> rotate y*180}
  859.     object{tejado33 translate<0,100,0>}
  860.     object{paneld2 rotate y*90 translate<-75,100,0>}
  861.     object{paneld2 rotate y*-90 translate<75,100,0>}
  862. }
  863.  
  864.  
  865.  
  866. // ---------------------------------------------------
  867. /* CASAS 10*15*15  (10  de  ancho,  20  largo,  15  alto), con buhardillas y
  868.    posibles puentes y escaleras.  Definiremos tiras de  2  y  4  paneles  de
  869.    largo y, con ellas, crearemos los "pisos" */
  870. // 9 tiras de 2 paneles de largo
  871. #declare tira1_a=union{
  872.     object{panel1 translate<-25,0,0>}
  873.     object{panel1 translate<25,0,0>}
  874. }
  875. #declare tira2_a=union{
  876.     object{panel14 translate<-25,0,0>}
  877.     object{panel1 translate<25,0,0>}
  878. }
  879. #declare tira3_a=union{
  880.     object{panel12 translate<-25,0,0>}
  881.     object{panel2 translate<25,0,0>}
  882. }
  883. #declare tira4_a=union{
  884.     object{panel5 translate<-25,0,0>}
  885.     object{panel4 translate<25,0,0>}
  886. }
  887. #declare tira5_a=union{
  888.     object{panel2 translate<-25,0,0>}
  889.     object{panel3 translate<25,0,0>}
  890. }
  891. #declare tira6_a=union{
  892.     object{panel13 translate<-25,0,0>}
  893.     object{panel8 translate<25,0,0>}
  894. }
  895. #declare tira7_a=union{
  896.     object{panel5 translate<-25,0,0>}
  897.     object{panel5 translate<25,0,0>}
  898. }
  899. #declare tira8_a=union{
  900.     object{panel11 translate<-25,0,0>}
  901.     object{panel5 translate<25,0,0>}
  902. }
  903. #declare tira9_a=union{
  904.     object{panel1 translate<-25,0,0>}
  905.     object{panel4 translate<25,0,0>}
  906. }
  907. // 7 tiras de 4 paneles de largo
  908. #declare tira1_b=union{
  909.     object{tira3_a translate<-50,0,0>}
  910.     object{tira4_a translate<50,0,0>}
  911. }
  912. #declare tira2_b=union{
  913.     object{tira1_a translate<-50,0,0>}
  914.     object{tira1_a translate<50,0,0>}
  915. }
  916. #declare tira3_b=union{
  917.     object{tira2_a translate<-50,0,0>}
  918.     object{tira2_a translate<50,0,0>}
  919. }
  920. #declare tira4_b=union{
  921.     object{tira5_a translate<-50,0,0>}
  922.     object{tira6_a translate<50,0,0>}
  923. }
  924. #declare tira5_b=union{
  925.     object{tira7_a translate<-50,0,0>}
  926.     object{tira7_a translate<50,0,0>}
  927. }
  928. #declare tira6_b=union{
  929.     object{tira5_a translate<-50,0,0>}
  930.     object{tira8_a translate<50,0,0>}
  931. }
  932. #declare tira7_b=union{
  933.     object{tira9_a translate<-50,0,0>}
  934.     object{tira9_a translate<50,0,0>}
  935. }
  936. //ahora 6 plantas (la b=es base y la m=planta media)
  937. #declare floor1=union{
  938.     object{tira1_b translate<0,0,-50>}
  939.     object{tira7_a translate<0,0,-100> rotate y*90}
  940.     object{tira5_b translate<0,0,-50> rotate y*180}
  941.     object{tira7_a translate<0,0,-100> rotate y*270}
  942. }
  943. #declare floor2=union{
  944.     object{tira7_b translate<0,0,-50>}
  945.     object{tira9_a translate<0,0,-100> rotate y*90}
  946.     object{tira7_b translate<0,0,-50> rotate y*180}
  947.     object{tira9_a translate<0,0,-100> rotate y*270}
  948. }
  949. #declare floor3=union{
  950.     object{tira6_b translate<0,0,-50>}
  951.     object{tira1_a translate<0,0,-100> rotate y*90}
  952.     object{tira1_b translate<0,0,-50> rotate y*180}
  953.     object{tira7_a translate<0,0,-100> rotate y*270}
  954. }
  955. #declare floor4=union{
  956.     object{tira1_b translate<0,0,-50>}
  957.     object{tira9_a translate<0,0,-100> rotate y*90}
  958.     object{tira5_b translate<0,0,-50> rotate y*180}
  959.     object{tira9_a translate<0,0,-100> rotate y*270}
  960. }
  961. #declare floor5=union{
  962.     object{tira5_b translate<0,0,-50>}
  963.     object{tira7_a translate<0,0,-100> rotate y*90}
  964.     object{tira3_b translate<0,0,-50> rotate y*180}
  965.     object{tira1_a translate<0,0,-100> rotate y*270}
  966. }
  967. #declare floor6=union{
  968.     object{tira4_b translate<0,0,-50>}
  969.     object{tira3_a translate<0,0,-100> rotate y*90}
  970.     object{tira7_b translate<0,0,-50> rotate y*180}
  971.     object{tira1_a translate<0,0,-100> rotate y*270}
  972. }
  973. // el tejado para estos edificios    
  974. // tejado para "casas" de mas de 5 metros de ancho
  975. #declare tejado2=union{
  976.     object{mtej2 rotate y*-90 translate <0,0,-25>}
  977.     object{mtej2 rotate y*-90 translate <0,0,-25> rotate y*180}
  978.     texture{tejas}
  979. }    
  980. #declare pantej1=union{
  981.     object{paneld4 rotate y*90 translate <-100,0,25>}
  982.     object{paneld5 rotate y*90 translate <-100,0,-25>}
  983.     union{
  984.         object{paneld4 rotate y*90 translate <-100,0,25>}
  985.         object{paneld5 rotate y*90 translate <-100,0,-25>}
  986.         rotate y*180
  987.         }
  988. }
  989. #declare pantej2=union{
  990.     object{paneld6 rotate y*90 translate <-100,0,0>}
  991.     object{paneld6 rotate y*-90 translate <100,0,0>}
  992. }
  993. #declare tejado41=union{   
  994.     object{tejado2 translate<-75,0,0>}
  995.     object{tejado2 translate<-25,0,0>}
  996.     object{tejado2 translate<25,0,0>}
  997.     object{tejado2 translate<75,0,0>}
  998.     object{pantej2}
  999. }
  1000. #declare tejado42=union{
  1001.     object{tejado41}
  1002.     object{buhar3_1 translate <0,8,-38>}
  1003.     object{buhar3_1 translate <0,8,-38> rotate y*180}
  1004. }
  1005.  
  1006. //casa simple de 1 piso y 10*20 metros
  1007. #declare casa31=union{
  1008. object {floor6 }
  1009. object {tejado42 translate<0,50,0> }
  1010. }
  1011. #declare casa32=union{
  1012.     object {floor3 }
  1013.     object {escal51 translate<-75,0,-50> }
  1014.     object {floor4 translate<0,50,0> }
  1015.     object {tejado42 translate<0,100,0> }
  1016. }
  1017. #declare casa33=union{
  1018.     object {floor6 }
  1019.     object {floor1 translate<0,50,0> rotate y*180}
  1020.     object {tejado42 translate<0,100,0> }
  1021. }
  1022. #declare casa33a=union{
  1023.     object {casa33 }
  1024.     object {lateral1_1 translate <-50,0,-75>}
  1025.     object {lateral1_1 translate <0,0,-125> rotate y*-90}
  1026. }
  1027. #declare casa34=union{
  1028.     object {floor6 }
  1029.     object {floor2 translate<0,50,0> rotate y*180}
  1030.     object {floor2 translate<0,100,0> rotate y*180}
  1031.     object {tejado42 translate<0,150,0> }
  1032. }
  1033. #declare casa34a=union{
  1034.     object {casa34 }
  1035.     object {lateral1_2 translate <-50,0,-75>}
  1036. }
  1037. #declare casa34b=union{
  1038.     object {casa34a }
  1039.     object {lateral2_1 translate <0,0,-125> rotate y*-90}
  1040. }
  1041. #declare casa34c=union{
  1042.     object {casa34a }
  1043.     object {colgante3 translate <0,0,-125> rotate y*-90}
  1044. }
  1045. #declare casa35=union{
  1046.     object {floor1 }
  1047.     object {floor5 translate<0,50,0> }
  1048.     object {floor5 translate<0,100,0> rotate y*180}
  1049.     object {tejado42 translate<0,150,0> }
  1050. }
  1051. #declare casa35a=union{
  1052.     object {casa35 }
  1053.     object {colgante1 translate <25,0,-50>}
  1054.     object {lateral2_1 translate <0,0,-125> rotate y*-90}
  1055. }
  1056.  
  1057. //Seguidamente creamos secciones para un par de torres cuadradas de 5 y 10
  1058. //metros de lado, construidas ambas con paneles (Estas torres pueden usar
  1059. //los soportes de las estructuras colgantes)
  1060. //En primer lugar 4 secciones para torres de 5 metros
  1061. #declare secbpan51=union{       //seccion base (puerta en -Z)
  1062.     object{panel8 translate<0,0,-25>}   
  1063.     object{panel5 translate<0,0,-25> rotate y*180}   
  1064.     object{panel4 translate<0,0,-25> rotate y*90}
  1065.     object{panel3 translate<0,0,-25> rotate y*-90}
  1066. }
  1067. #declare secmpan51=union{       //seccion media sin ventanas
  1068.     object{panel1 translate<0,0,-25>}   
  1069.     object{panel1 translate<0,0,-25> rotate y*180}   
  1070.     object{panel4 translate<0,0,-25> rotate y*90}
  1071.     object{panel4 translate<0,0,-25> rotate y*-90}
  1072. }
  1073. #declare secmpan52=union{       //seccion media con 4 ventanas
  1074.     object{panel5 translate<0,0,-25>}   
  1075.     object{panel5 translate<0,0,-25> rotate y*180}   
  1076.     object{panel14 translate<0,0,-25> rotate y*90}
  1077.     object{panel14 translate<0,0,-25> rotate y*-90}
  1078. }
  1079. #declare secmpan53=union{       //seccion media con una ventana
  1080.     object{panel1 translate<0,0,-25>}   
  1081.     object{panel2 translate<0,0,-25> rotate y*180}   
  1082.     object{panel3 translate<0,0,-25> rotate y*90}
  1083.     object{panel14 translate<0,0,-25> rotate y*-90}
  1084. }
  1085. //tejado piramidal
  1086. #declare tejpir5=union{
  1087.     object{paneld1 translate<0,0,-25>}
  1088.     object{paneld1 translate<0,0,-25> rotate y*180}
  1089.     object{tejado1 }
  1090.     scale <1,1.30,1>
  1091. }    
  1092. //un ejemplo de torre (unos 12 metros de altura
  1093. #declare torpan5_1=union{
  1094.     object{secbpan51}
  1095.     object{secmpan52 translate<0,50,0>}
  1096.     object{secmpan51 translate<0,100,0> rotate y*90}
  1097.     object{tejpir5 translate<0,150,0>}
  1098. }    
  1099. #declare torpan5_2=union{
  1100.     object{secbpan51}
  1101.     object{secmpan51 translate<0,50,0>}
  1102.     object{secmpan52 translate<0,100,0>}
  1103.     object{secmpan53 translate<0,150,0>}
  1104.     object{tejpir5 translate<0,200,0>}
  1105. }    
  1106.  
  1107. // ahora 4 secciones para torres de 10 metros de lado
  1108. #declare secbpan101=union{  //seccion base (puertas en +X y +Z)
  1109.     object{tira4_a translate<0,0,-50>}
  1110.     object{tira6_a translate<0,0,-50> rotate y*90}   
  1111.     object{tira8_a translate<0,0,-50> rotate y*180}
  1112.     object{tira2_a translate<0,0,-50> rotate y*-90}
  1113. }
  1114. #declare secmpan101=union{       //2 lados sin ventanas y otro con
  1115.     object{tira9_a translate<0,0,-50>}
  1116.     object{tira9_a translate<0,0,-50> rotate y*90}
  1117.     object{tira7_a translate<0,0,-50> rotate y*-90}
  1118.     object{tira7_a translate<0,0,-50> rotate y*180}
  1119. }
  1120. #declare secmpan102=union{       //una sola ventana
  1121.     object{tira1_a translate<0,0,-50>}
  1122.     object{tira5_a translate<0,0,-50> rotate y*90}
  1123.     object{tira9_a translate<0,0,-50> rotate y*-90}
  1124.     object{tira2_a translate<0,0,-50> rotate y*180}
  1125. }
  1126. #declare secmpan103=union{       //un lado sin ventanas y otro con
  1127.     object{tira1_a translate<0,0,-50>}
  1128.     object{tira1_a translate<0,0,-50> rotate y*90}
  1129.     object{tira2_a translate<0,0,-50> rotate y*-90}
  1130.     object{tira2_a translate<0,0,-50> rotate y*180}
  1131. }
  1132. #declare tejpir10=union{
  1133.     object{tejado2 translate<-25,0,0>}
  1134.     object{tejado2 translate<25,0,0>}
  1135.     object{paneld6 rotate y*90 translate <-50,0,0>}
  1136.     object{paneld6 rotate y*-90 translate <50,0,0>}
  1137.     scale <1,1.30,1>
  1138. }
  1139. #declare torpan10_1=union{      //torre de 27 metros 
  1140.     object{secbpan101}
  1141.     object{secmpan101 translate<0,50,0>}
  1142.     object{secmpan103 translate<0,100,0>}
  1143.     object{secmpan101 translate<0,150,0>}
  1144.     object{tejpir10 translate<0,200,0>}
  1145.     object{torpan5_1 translate<0,0,-60>}
  1146.     object{torpan5_1 rotate y*90 translate<0,0,-50> rotate y*90}
  1147.     object{torpan5_1 rotate y*90 translate<0,0,-50> rotate y*-90}
  1148.     object{torpan5_1 translate<0,0,-60> rotate y*180}
  1149. }    
  1150. #declare torpan10_2=union{      //torre de 27 metros con colgantes 
  1151.     object{secbpan101}
  1152.     object{secmpan101 translate<0,50,0>}
  1153.     object{secmpan103 translate<0,100,0>}
  1154.     object{colgante1 translate<0,50,-50>}
  1155.     object{colgante2 translate<0,50,-50> rotate y*90}
  1156.     object{colgante2 translate<0,50,-50> rotate y*-90}
  1157.     object{colgante1 translate<0,50,-50> rotate y*180}
  1158.     object{secmpan101 translate<0,150,0>}
  1159.     object{tejpir10 translate<0,200,0>}
  1160. }    
  1161.  
  1162.